home *** CD-ROM | disk | FTP | other *** search
/ AGA Toolkit '97 / The AGA Toolkit '97.iso / programming / gcc / gcc2.7.0 / gcc270_base.lha / gnu / geninline / mklibamiga / gluesrc1.lha / large / SetProgramName.s < prev    next >
Encoding:
Text File  |  1994-09-27  |  165 b   |  13 lines
  1. .text; .even; .globl _SetProgramName
  2.  
  3. _SetProgramName:
  4.     movel a6,sp@-
  5.     movel _DOSBase,a6
  6.     movel sp@(8),d1
  7. #APP
  8.     jsr a6@(-0x23a)
  9. #NO_APP
  10.     extl d0
  11.     movel sp@+,a6
  12.     rts
  13.